home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / MIXCASE.ZIP;1 / ENV4.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1993-04-25  |  822 b   |  23 lines
  1. 1  '  ENVELOPE PRINTING WITH RETURN ADDRESS   copyright G.Michels  JAN 1990
  2. 2  '
  3. 3  '
  4. 5  CLS:PRINT"4 LINE ADDRESS":PRINT
  5. 10  LINE INPUT "ENTER NAME OF ADDRESSEE: ",N$:PRINT:LINE INPUT"ADDRESS:  ",A$
  6. 15  LINE INPUT "2ND LINE ADDRESS: ",A1$
  7. 20  PRINT:LINE INPUT "CITY: ",C$:INPUT "STATE AND ZIP:",ST$
  8. 30  PRINT TAB(30) N$:PRINT:PRINT TAB(30) A$:PRINT:PRINT TAB(30) A1$
  9. 35  PRINT:PRINT TAB(30) C$","ST$
  10. 40  PRINT:INPUT"IS THIS CORRECT? Y/N: ",ANS$
  11. 50  IF ANS$ <> "Y" GOTO 10
  12. 55  INPUT "PLEASE POSITION ENVELOPE IN PRINTER. READY? Y/N: ",Y$
  13. 57  IF Y$<>"Y" THEN 55
  14. 60  LPRINT CHR$(27);"C";CHR$(0);CHR$(2):
  15. 70  LPRINT TAB(1)"type your name here":LPRINT TAB(1)"type your street address here"
  16. 80  LPRINT TAB(1) "type city, 2char state zip";CHR$(11)
  17. 90  LPRINT TAB(30)"       ":LPRINT TAB(30)"      ":LPRINT TAB(30)"    "
  18. 100  LPRINT TAB(30)"  ":LPRINT TAB(30)"  ":LPRINT TAB(30) N$:LPRINT TAB(30) A$
  19. 110  LPRINT TAB(30)A1$:LPRINT TAB(30) C$ ", " ST$
  20. 120  INPUT "PRINT MORE ENVELOPES TO ADDRESSEE? Y/N: ",ANS$
  21. 130  IF ANS$ = "Y" THEN 55
  22. 160  END
  23.